﻿Namespace db.saglik.eczane

	Public Class recete : Inherits table

		Property eczkod As New db.char
		Property kimlik As New db.varchar
		Property sno As New db.int
		Property ydurum As New db.char
		Property ykimlik As New db.char
		Property yadi As New db.varchar
		Property muaynetar As New db.datetime
		Property ay As New db.numeric
		Property yil As New db.numeric
		Property faturano As New db.numeric
		Property receteno As New db.numeric
		Property istsekli As New db.char
		Property ilactopfiat As New db.numeric
		Property ssd10 As New db.numeric
		Property sig20 As New db.numeric
		Property kdv As New db.numeric
		Property ssdtopfiat As New db.numeric
		Property kaykul As New db.varchar
		Property islemtar As New db.datetime
		Property durum As New db.char
		Property hturu As New db.varchar
		Property kararno As New db.int

		Property ilaclar As New List(Of ilac)

		Public Overrides Sub AfterSave(Token As Token)
			For Each ilac In ilaclar
				ilac.save(Token)
			Next
		End Sub

		Class ilac : Inherits table

			Property faturano As New db.numeric
			Property ilactkod As New db.char
			Property adet As New db.numeric
			Property fiat As New db.numeric
			Property toplamfiat As New db.numeric

			Public Overrides ReadOnly Property tablename As String
				Get
					Return "rilac"
				End Get
			End Property
		End Class

	End Class

End Namespace
